Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.2/Group1/Tarihdll.dll/0/RCDATA/TBRSATISFORM/TBRSATISFORM.txt

Text File | 1998-07-24 | 16KB | 619 lines

object BrSatisForm: TBrSatisForm
  Left = 1
  Top = 3
  Width = 616
  Height = 406
  ActiveControl = DBGridSATBAK
  Caption = 'SATI�LAR'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 608
    Height = 379
    HelpContext = 108
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 2
    Caption = 'Panel2'
    Color = 8421440
    TabOrder = 0
    object DBGridSATBAK: TDBGrid
      Left = 4
      Top = 4
      Width = 600
      Height = 325
      Align = alTop
      Color = clBlack
      DataSource = SatisBrSRC
      FixedColor = clSilver
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Color = clBlue
      TitleFont.Height = -11
      TitleFont.Name = 'Arial Tur'
      TitleFont.Style = [fsBold]
      OnDblClick = BitBtnSecClick
    end
    object BitBtnSec: TBitBtn
      Left = 411
      Top = 341
      Width = 89
      Height = 25
      Hint = 'Enter'
      Caption = 'Sat�� Se�'
      Default = True
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ModalResult = 1
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtnSecClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
        0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
        00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
        00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
        F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
        F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
        FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
        0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
        00337777FFFF77FF7733EEEE00000000033377777777777773330000}
      NumGlyphs = 2
    end
    object BitBtnIptal: TBitBtn
      Left = 512
      Top = 341
      Width = 89
      Height = 25
      Hint = 'Esc'
      Caption = '&Vazge�'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ModalResult = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BitBtnIptalClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFF33FF333FFF339993370733
        999333777FF37FF377733339993000399933333777F777F77733333399970799
        93333333777F7377733333333999399933333333377737773333333333990993
        3333333333737F73333333333331013333333333333777FF3333333333910193
        333333333337773FF3333333399000993333333337377737FF33333399900099
        93333333773777377FF333399930003999333337773777F777FF339993370733
        9993337773337333777333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtnSIL: TBitBtn
      Left = 6
      Top = 341
      Width = 89
      Height = 25
      Caption = 'Sat�� &Sil'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtnSILClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F55550005555555055555777555555575550000}
      NumGlyphs = 2
      Spacing = 7
    end
    object BitBtnBUL: TBitBtn
      Left = 208
      Top = 341
      Width = 89
      Height = 25
      Caption = 'Sat�� Tarihi &Ara'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtnBULClick
    end
    object BitBtnsbul: TBitBtn
      Left = 108
      Top = 341
      Width = 89
      Height = 25
      Caption = 'Sat�� No &Bul'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = BitBtnsbulClick
    end
    object BtnVERES: TBitBtn
      Left = 310
      Top = 341
      Width = 89
      Height = 25
      Caption = 'V&eresiyeler'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = BtnVERESClick
    end
  end
  object PanelBUL: TPanel
    Left = 204
    Top = 235
    Width = 163
    Height = 104
    BevelInner = bvLowered
    BorderWidth = 3
    Color = clNavy
    TabOrder = 1
    Visible = False
    object Label1: TLabel
      Left = 45
      Top = 8
      Width = 64
      Height = 14
      Caption = 'Sat�� Tarihi'
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 37
      Top = 48
      Width = 93
      Height = 14
      Caption = 'olan sat��lar� bul'
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object MaskEdit1: TMaskEdit
      Left = 45
      Top = 24
      Width = 65
      Height = 21
      EditMask = '!99/99/9999;1;_'
      MaxLength = 10
      TabOrder = 0
      Text = '  .  .    '
      OnExit = MaskEdit1Exit
    end
    object Button1: TButton
      Left = 9
      Top = 70
      Width = 65
      Height = 23
      Caption = '&Tamam'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 88
      Top = 70
      Width = 65
      Height = 23
      Caption = '&Vazge�'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object PanelSATBUL: TPanel
    Left = 88
    Top = 235
    Width = 163
    Height = 104
    BevelInner = bvLowered
    BorderWidth = 3
    Color = clRed
    TabOrder = 2
    Visible = False
    object Label3: TLabel
      Left = 45
      Top = 8
      Width = 64
      Height = 15
      Caption = 'Sat�� No.su'
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 37
      Top = 48
      Width = 78
      Height = 15
      Caption = 'olan sat��� bul'
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object MaskEditSAT: TMaskEdit
      Left = 45
      Top = 24
      Width = 65
      Height = 21
      EditMask = '!9999999;1;_'
      MaxLength = 7
      TabOrder = 0
      Text = '       '
    end
    object Button3: TButton
      Left = 9
      Top = 70
      Width = 65
      Height = 23
      Caption = '&Tamam'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 88
      Top = 70
      Width = 65
      Height = 23
      Caption = '&Vazge�'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Button4Click
    end
  end
  object SatisBrSRC: TDataSource
    DataSet = satisBrTab
    Left = 269
    Top = 19
  end
  object satisBrTab: TTable
    BeforeDelete = satisBrTabBeforeDelete
    OnCalcFields = satisBrTabCalcFields
    DatabaseName = 'ECZ'
    IndexFieldNames = 'SATISNO;SIRANOURUN'
    TableName = 'satis.db'
    Left = 222
    Top = 25
    object satisBrTabSATISNO: TFloatField
      DisplayLabel = 'Sat�� No'
      DisplayWidth = 7
      FieldName = 'SATISNO'
    end
    object satisBrTabSIRANOURUN: TIntegerField
      FieldName = 'SIRANOURUN'
      Visible = False
    end
    object satisBrTabILACNO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = '�r�n Ad�'
      DisplayWidth = 25
      FieldName = 'ILACNO'
      OnGetText = satisBrTabILACNOGetText
    end
    object satisBrTabFIYAT: TCurrencyField
      DisplayLabel = 'Fiyat�'
      DisplayWidth = 13
      FieldName = 'FIYAT'
    end
    object satisBrTabMIKTAR: TIntegerField
      DisplayLabel = 'Adet'
      DisplayWidth = 4
      FieldName = 'MIKTAR'
    end
    object satisBrTabTUTARI: TCurrencyField
      Calculated = True
      DisplayWidth = 14
      FieldName = 'TUTARI'
    end
    object satisBrTabSATARIH: TDateTimeField
      DisplayLabel = 'Sat�� Tarihi'
      DisplayWidth = 13
      FieldName = 'SATARIH'
      DisplayFormat = 'dd/mm/yy-hh:mm'
    end
    object satisBrTabPARAKENDE: TStringField
      DisplayLabel = 'Sat.Tipi'
      DisplayWidth = 7
      FieldName = 'PARAKENDE'
      OnGetText = satisBrTabPARAKENDEGetText
      Size = 1
    end
    object satisBrTabRECETETIP: TStringField
      DisplayLabel = 'Re�ete Tipi'
      DisplayWidth = 14
      FieldName = 'RECETETIP'
      OnGetText = satisBrTabRECETETIPGetText
      Size = 1
    end
    object satisBrTabKDV: TFloatField
      DisplayWidth = 6
      FieldName = 'KDV'
      DisplayFormat = '%0.00'
    end
  end
  object urunBakTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'URUN.DB'
    Left = 96
    Top = 46
    object urunBakTabILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object urunBakTabILACAD: TStringField
      FieldName = 'ILACAD'
      Required = True
      Size = 36
    end
    object urunBakTabMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
  end
  object QHRKSIL: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {010001000441734E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM HAREKET'
      'WHERE  (ALSAT='#39'S'#39') AND (ALSATNO=:AsNo)')
    Left = 192
    Top = 280
  end
  object QRECSIL: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {0100010006525361744E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM RECETE'
      'WHERE SATISNO=:RSatNo')
    Left = 128
    Top = 280
  end
  object QFATSIL: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100055361744E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM FATURA'
      'WHERE SATISNO=:SatNo')
    Left = 160
    Top = 280
  end
  object QhrkUYARI: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100055541734E6F0006080000000000000000000000}
    SQL.Strings = (
      'SELECT '
      'HAREKET.CARIKOD,'
      'HAREKET.BORC'
      'FROM HAREKET'
      'WHERE   (ALSATNO=:UAsNo) AND (ALSAT='#39'S'#39') AND'
      '(NIHAI<>1)')
    Left = 104
    Top = 280
    object QhrkUYARICARIKOD: TStringField
      FieldName = 'CARIKOD'
      Size = 11
    end
    object QhrkUYARIBORC: TCurrencyField
      FieldName = 'BORC'
    end
  end
  object QHastaBul: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100056873744E6F00030400000000000000}
    SQL.Strings = (
      'SELECT '
      'HASTA.HASTADI,'
      'HASTA.HASTASOYAD'
      'FROM HASTA'
      'WHERE HASTANO=:hstNo')
    Left = 72
    Top = 304
    object QHastaBulHASTADI: TStringField
      FieldName = 'HASTADI'
      Size = 18
    end
    object QHastaBulHASTASOYAD: TStringField
      FieldName = 'HASTASOYAD'
      Size = 18
    end
  end
  object KrmBorcSil: TTable
    DatabaseName = 'ECZ'
    TableName = 'KRMLAR.DB'
    Left = 72
    Top = 272
    object KrmBorcSilKOD: TStringField
      FieldName = 'KOD'
      Required = True
      Size = 11
    end
    object KrmBorcSilBORC: TCurrencyField
      FieldName = 'BORC'
    end
  end
  object hastaBulT: TTable
    DatabaseName = 'ECZ'
    TableName = 'HASTA.DB'
    Left = 40
    Top = 264
    object hastaBulTHASTANO: TIntegerField
      FieldName = 'HASTANO'
    end
    object hastaBulTBORC: TCurrencyField
      FieldName = 'BORC'
    end
  end
  object UrunHrkSTab: TTable
    DatabaseName = 'ECZ'
    IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO'
    MasterFields = 'ILACNO;SATARIH;SATISNO;SIRANOURUN'
    MasterSource = SatisBrSRC
    TableName = 'URUNHRK.DB'
    Left = 224
    Top = 280
    object UrunHrkSTabGCTARIH: TDateTimeField
      DisplayWidth = 15
      FieldName = 'GCTARIH'
    end
    object UrunHrkSTabILACNO: TIntegerField
      DisplayWidth = 10
      FieldName = 'ILACNO'
    end
    object UrunHrkSTabALSATNO: TFloatField
      DisplayWidth = 10
      FieldName = 'ALSATNO'
    end
    object UrunHrkSTabCIKMIK: TIntegerField
      DisplayWidth = 10
      FieldName = 'CIKMIK'
    end
    object UrunHrkSTabSIRANO: TIntegerField
      DisplayWidth = 10
      FieldName = 'SIRANO'
    end
  end
  object QueryBUL: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100057361746172000B080000000000000000000000}
    SQL.Strings = (
      'SELECT SATIS.SATISNO'
      'FROM SATIS'
      'WHERE SATIS.SATARIH>=:satar')
    Left = 336
    Top = 240
    object QueryBULSATISNO: TFloatField
      FieldName = 'SATISNO'
    end
  end
  object QSSKREC: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {010001000752655361744E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM RECSSK'
      'WHERE SATISNO=:ReSatNo')
    Left = 136
    Top = 304
  end
  object QRECSSK_A: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100085265635361744E6F0006080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM RECSSK_A'
      'WHERE SATISNO=:RecSatNo')
    Left = 168
    Top = 304
  end
  object prosesTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'PROSES.DB'
    Left = 312
    Top = 144
    object prosesTabTARIH: TDateTimeField
      FieldName = 'TARIH'
    end
    object prosesTabACIKLA: TStringField
      FieldName = 'ACIKLA'
      Size = 36
    end
    object prosesTabISLETNO: TFloatField
      FieldName = 'ISLETNO'
    end
    object prosesTabMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
    object prosesTabFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object prosesTabTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
    object prosesTabISLETIPI: TStringField
      FieldName = 'ISLETIPI'
      Size = 15
    end
  end
  object UserAbc: TTable
    DatabaseName = 'ECZ'
    TableName = 'usera.db'
    Left = 344
    Top = 145
    object UserAbcKULLANICI: TStringField
      FieldName = 'KULLANICI'
      Size = 25
    end
    object UserAbcURUNKARTI: TStringField
      FieldName = 'URUNKARTI'
      Size = 1
    end
  end
end